<%
 '
 ' Copyright 2007 Liu, Xiaokang <4341322@gmail.com>
 ' Blog <http://www.ioio.name/>
 ' 
 ' This file is part of JOS(Judge Online System).
 ' You can see this project at <http://code.google.com/p/judgeonline/>
 ' 
 ' JOS is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as
 ' published by the Free Software Foundation; either revision 3 of the License, or (at your option) any later revision.
 ' 
 ' JOS is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
 ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
 ' 
 ' You should have received a copy of the GNU General Public License along with JOS. if not, see
 ' <http://www.gnu.org/licenses/>.
 '
%>
<% 
Set FSO = CreateObject("Scripting.FileSystemObject")
	'FSO.CreateFolder(ProblemPath & "P" & CInt(ProblemRs("Pid")))
	FSO.MoveFile "C:\jos\Problem\aaa\*", "C:\jos\ProbTmp\xxx"
	FSO.MoveFolder "C:\jos\Problem\aaa\*", "C:\jos\ProbTmp\xxx"
	FSO.DeleteFolder("C:\jos\Problem\aaa")
	set FSO=nothing
%>
